home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / qb2 / pro15 / rndboxes.bas < prev    next >
Encoding:
BASIC Source File  |  1990-08-20  |  1.8 KB  |  52 lines
  1.  '******************************************************************************
  2.  '* RNDBOXES - Random solid line box demo.                                     *
  3.  '*                                                                            *
  4.  '* Written for GRAFIX by:  Joseph A. Albrecht                                 *
  5.  '*                                                                            *
  6.  '* Press F1 to pause                                                          *
  7.  '* Press F2 to clear screen                                                   *
  8.  '* Press F3 to toggle between fast and slow drawing modes                     *
  9.  '* Press ESC to exit program                                                  *
  10.  '******************************************************************************
  11.  '$INCLUDE: 'GRAFQBS.INC'
  12.  'The above line is for QuickBASIC.
  13.  
  14.  ''$INCLUDE "GRAFTBS.INC"
  15.  'The above line is for TURBO BASIC. Remove the  ''  to compile the program.
  16.  
  17.  ''$INCLUDE "GRAFPBS.INC"
  18.  'The above line is for PowerBASIC. Remove the  ''  to compile the program.
  19.  
  20.  DEF FNRND (Maximum) = INT(RND * Maximum) + 1
  21.  
  22.  MXSize = 80
  23.  MYSize = 50
  24.  MaxX = 319 - MXSize
  25.  MaxY = 199 - MYSize
  26.  MaxColor = 15
  27.  Fast = -1
  28.  CALL MediumGraphics
  29.  
  30. Again:
  31.  RANDOMIZE TIMER
  32.  DO
  33.    K$ = INKEY$
  34.    K$ = RIGHT$(K$, 1)
  35.    IF K$ = CHR$(27) THEN
  36.      CALL ExitGraphics
  37.      END
  38.    END IF
  39.    IF K$ = CHR$(59) THEN CALL WaitKey
  40.    IF K$ = CHR$(60) THEN CALL ClearScreen
  41.    IF K$ = CHR$(61) THEN Fast = NOT Fast
  42.    X = FNRND(MaxX)
  43.    Y = FNRND(MaxY)
  44.    XSize = FNRND(MXSize)
  45.    YSize = FNRND(MYSize)
  46.    BoxColor = FNRND(MaxColor)
  47.    CALL FillBox(X, Y, X + XSize, Y + YSize, BoxColor)
  48.    CALL DrawBox(X, Y, X + XSize, Y + YSize, 0)
  49.    IF NOT Fast THEN CALL Pause(1)
  50.  LOOP
  51.  
  52.